home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Recycle Bin Properties.xpl < prev    next >
Encoding:
XSetup plugin  |  2003-12-06  |  1.5 KB  |  56 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Icons\'Recycle Bin' Options"
  5. "NAME"="Recycle Bin Properties Menu Entry"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow "Properties" Menu Entry for Current User"
  9. "TEXT 2"="Allow "Properties" Menu Entry for All Users"
  10. "DESCRIPTION 1"="These options control if the "Properties" menu entry of the right-click menu of Recycle Bin is visible or not."
  11. "DESCRIPTION 2"="You can control this setting for the current user only or for all users on this computer. "
  12. "AUTHOR"="Ojatex@aol.com"
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16. "COMMENT 2"=""
  17.  
  18.  
  19. sP_USR="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoPropertiesRecycleBin"
  20. sP_SYS="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoPropertiesRecycleBin"
  21.  
  22. ' both DW
  23.  
  24. SUB Plugin_Initialize
  25.  i=RegReadValue(sP_USR)
  26.  if i<>1 then
  27.     Call SetUIElement(1,true)
  28.  end if
  29.  
  30.  i=RegReadValue(sP_SYS)
  31.  if i<>1 then
  32.     Call SetUIElement(2,true)
  33.  end if
  34. END SUB
  35.  
  36. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  i=GetUIElement(1)
  38.  if i=true then
  39.     If RegValueExists(sP_USR) then Call RegDeleteValue(sP_USR)
  40.  else
  41.     Call RegWriteValue(sP_USR,1,2)
  42.  end if
  43.  
  44.  i=GetUIElement(2)
  45.  if i=true then
  46.     If RegValueExists(sP_SYS) then Call RegDeleteValue(sP_SYS)
  47.  else
  48.    Call RegWriteValue(sP_SYS,1,2)
  49.  end if
  50.  
  51.  
  52.  Call Restart()
  53. END SUB
  54.  
  55. SUB Plugin_Terminate
  56. END SUB